home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Source / IBPalettes / WWTCLKit / WWButton.m < prev    next >
Encoding:
Text File  |  1995-03-22  |  2.9 KB  |  122 lines
  1.  
  2. #import "WWButton.h"
  3. #import "WWButtonCell.h"
  4.  
  5. #import "avoidStupidWarnings.h"
  6.  
  7. @implementation WWButton
  8.  
  9. static id myStoredCellClass;
  10.  
  11.  
  12. + initialize 
  13. { 
  14.   [WWButton setVersion:1]; 
  15.  
  16.   if (self == [WWButton class])
  17.   {  myStoredCellClass = [WWButtonCell class];
  18.   }
  19.  
  20.   return self; 
  21. }
  22. //
  23. + setCellClass:classID
  24. {
  25.   myStoredCellClass = classID;
  26.   return self;
  27. }
  28. ////////////////////////////////////////////////////////
  29. - initFrame:(const NXRect *)frameRect icon:(const char *)aString tag:(int)anInt target:anObject action:(SEL)aSelector key:(unsigned short)charCode enabled:(BOOL)flag
  30. {
  31.   id  oldCell;
  32.  
  33.  
  34.   [super initFrame:frameRect icon:aString tag:anInt target:anObject action:aSelector key:charCode enabled:flag];
  35.   oldCell = [self setCell:[[WWButtonCell alloc] init]];
  36.   [oldCell free];
  37.   return self;
  38. }
  39. //
  40. - initFrame:(const NXRect *)frameRect title:(const char *)aString tag:(int)anInt target:anObject action:(SEL)aSelector key:(unsigned short)charCode enabled:(BOOL)flag
  41. {
  42.   id  oldCell;
  43.  
  44.  
  45.   [super initFrame:frameRect title:aString tag:anInt target:anObject action:aSelector key:charCode enabled:flag];
  46.   oldCell = [self setCell:[[myStoredCellClass alloc] init]];
  47.   [oldCell free];
  48.   return self;
  49. }
  50. //
  51. - init
  52. {
  53.   id  oldCell;
  54.  
  55.  
  56.   [super init];
  57.   oldCell = [self setCell:[[myStoredCellClass alloc] init]];
  58.   [oldCell free];
  59.   return self;
  60. }
  61.  
  62. // need to be able to see the cell's tclVar...
  63. - setTclVar:(const char *)str { return [[self cell] setTclVar:str]; }
  64. - (const char *)tclVar { return [[self cell] tclVar]; }
  65.  
  66. // need to be able to see the cell's controlString...
  67. - setControlString:(const char *)str { return [[self cell] setControlString:str]; }
  68. - (const char *)controlString { return [[self cell] controlString]; }
  69.  
  70. // need to be able to see the cell's tclExpression...
  71. - setTclExpression:(const char *)str { return [[self cell] setTclExpression:str]; }
  72. - (const char *)tclExpression { return [[self cell] tclExpression]; }
  73.  
  74. // need to be able to see the cell's tclExpression...
  75. - setTclCommand:(const char *)str { return [[self cell] setTclCommand:str]; }
  76. - (const char *)tclCommand { return [[self cell] tclCommand]; }
  77.  
  78. - setInterp:newInterp {  return [[self cell] setInterp:newInterp]; }
  79. - evaluateSelf { return [[self cell] evaluateSelf]; }
  80.  
  81. - sendAction:(SEL)theAction to:theTarget
  82. {
  83.   if ([cell respondsTo:@selector(updateInterp)])
  84.   {  [cell updateInterp];
  85.   }
  86.  
  87.   return [super sendAction:theAction to:theTarget];
  88. }
  89.  
  90. // IB stuff
  91. - (const char *)getInspectorClassName 
  92. {  
  93.    NXEvent  *event = [NXApp currentEvent];
  94.  
  95.    if (event->flags & NX_ALTERNATEMASK)
  96.    {  return [super getInspectorClassName];
  97.    }
  98.    
  99.    return "WWButtonIBInspector"; 
  100. }
  101.  
  102. - write:(NXTypedStream *)stream 
  103. {
  104.    [super write:stream];
  105.    return self;
  106. }
  107. //
  108. - read:(NXTypedStream *)stream 
  109. {
  110.    int version;
  111.  
  112.    [super read:stream];
  113.  
  114.    version = NXTypedStreamClassVersion(stream, "WWButton");
  115.    if (version == 1)
  116.    {  
  117.    }
  118.    return self;
  119. }
  120.  
  121. @end
  122.